home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok49.lha / Speech / txt / ZeichneGesicht.mod < prev    next >
Text File  |  1993-08-15  |  2KB  |  89 lines

  1. MODULE ZeichneGesicht;
  2.  
  3.  
  4. IMPORT
  5.   s  : SYSTEM,
  6.   g  : Graphics,
  7.   i  : Intuition;
  8.  
  9. CONST
  10.       H           = 140;
  11.       B           = 210;
  12.       MundX       =  62;
  13.       MundY       =  100;
  14.       MundBreite  =  B-2*MundX;
  15.       MundHoehe   =  34;
  16.       MundMitteX  =  MundX+(MundBreite DIV 2);
  17.       MundMitteY  =  MundY+(MundHoehe DIV 2);
  18.       AugeY       =  31;
  19.       AugeLinksX  =  31;
  20.       AugeRechtsX = 140;
  21.       AugenBreite =  40;
  22.       AugenHoehe  =  20;
  23.       NaseX       =  95;
  24.       NaseY       =  54;
  25.       NasenHoehe  =  30;
  26.       NasenBreite =  B-2*NaseX;
  27.  
  28. VAR  MundFenster              : i.WindowPtr;
  29.      F                        : i.NewWindow;
  30.      I                        : INTEGER;
  31.  
  32.  
  33. PROCEDURE* DrawMouths* (Breite,Hoehe :INTEGER);
  34. BEGIN
  35.  Breite:=Breite * 2;
  36.   g.SetAPen(MundFenster.rPort,1);
  37.   g.RectFill
  38.   (MundFenster.rPort,MundX,MundY,MundX+MundBreite,MundY+MundHoehe);
  39.   g.SetAPen(MundFenster.rPort,3);
  40.   g.Move(MundFenster.rPort,MundMitteX-Breite-10,MundMitteY);
  41.   g.Draw(MundFenster.rPort,MundMitteX,MundMitteY-Hoehe);
  42.   g.Draw(MundFenster.rPort,MundMitteX+Breite+10,MundMitteY);
  43.   g.Draw(MundFenster.rPort,MundMitteX,MundMitteY+Hoehe);
  44.   g.Draw(MundFenster.rPort,MundMitteX-Breite-10,MundMitteY);
  45. END DrawMouths;
  46.  
  47.  
  48. PROCEDURE OpenWindow;
  49. BEGIN
  50.   F.leftEdge  := 210;   ; F.topEdge := 12;
  51.   F.width     := B; F.height := H;
  52.   F.minWidth  := B; F.minHeight := H;
  53.   F.maxWidth  := B; F.maxHeight := H;
  54.   F.blockPen  := 3;
  55.   F.detailPen := 1;
  56.   F.idcmpFlags:= LONGSET{};
  57.   F.flags     := LONGSET{i.windowDrag};
  58.   F.title     := s.ADR(" MundFenster ");
  59.   F.screen    := NIL ;
  60.   F.type      := {i.wbenchScreen}  ;
  61.   MundFenster := i.OpenWindow(F);
  62.   IF MundFenster=NIL THEN HALT(20) END;
  63.   g.SetAPen(MundFenster.rPort,1);
  64.   g.RectFill(MundFenster.rPort,3,11,B-3,H-3);
  65.   g.SetAPen(MundFenster.rPort,0);
  66.   g.RectFill
  67.   (MundFenster.rPort,AugeLinksX,AugeY,AugeLinksX+AugenBreite,AugeY+AugenHoehe);
  68.   g.RectFill
  69.   (MundFenster.rPort,AugeRechtsX,AugeY,AugeRechtsX+AugenBreite,AugeY+AugenHoehe);
  70.   g.SetAPen(MundFenster.rPort,2);
  71.   g.RectFill
  72.   (MundFenster.rPort,NaseX,NaseY,NaseX+NasenBreite,NaseY+NasenHoehe);
  73.  
  74. END OpenWindow;
  75.  
  76. PROCEDURE CloseWindow;
  77. BEGIN
  78.   IF MundFenster # NIL THEN
  79.    i.CloseWindow(MundFenster)
  80.   END
  81. END CloseWindow;
  82.  
  83. BEGIN
  84.   MundFenster := NIL;
  85.   OpenWindow;
  86. CLOSE
  87.   CloseWindow;;
  88. END ZeichneGesicht.
  89.